home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Utilities / MPW Extras / Scripts / RestorePosition < prev    next >
Encoding:
Text File  |  1991-07-29  |  362 b   |  11 lines  |  [TEXT/MPS ]
  1. # RestorePosition
  2. #
  3. # MPW script to restore a window and line number previously saved by the SavePosition menu command
  4.  
  5. Set Position "`Begin; TypeFile "{SavedPositions}" ≥≥ Dev:Null | GetListItem -m "Restore position:" -q -s; Set PosStatus {Status}; End`"
  6. If ({PosStatus} == 0)
  7.     Begin; {Position}; End ∑∑ Dev:Null
  8. End  # If {PosStatus}
  9.  
  10.  
  11. # end of RestorePosition